home *** CD-ROM | disk | FTP | other *** search
/ EnigmA Amiga Run 1996 June / EnigmA AMIGA RUN 08 (1996)(G.R. Edizioni)(IT)[!][issue 1996-06][EARSAN CD VII].iso / earcd / comm1 / mcrbbs11.lha / MicroBBS1.1 / Commands / WriteMessage < prev   
AmigaDOS Script File  |  1996-02-14  |  406b  |  18 lines
  1. .key NODE/A,USER/A
  2. .bra {
  3. .ket }
  4.  
  5. IF EXISTS "BBS:Users/$MSGTO{NODE}"
  6.     C:Delete >NIL: T:Message.{NODE}
  7.  
  8. ;    BBS:Commands/AED T:Message.{NODE}
  9.     C:Type MicroBBS:{NODE} TO T:Message.{NODE}
  10.  
  11.     IF EXISTS T:Message.{NODE}
  12.         C:Echo "{USER}:" >>BBS:Messages/$MSGTO{NODE}
  13.         C:Attach >NIL: T:Message.{NODE} BBS:Messages/$MSGTO{NODE}
  14.     ENDIF
  15. ELSE
  16.     C:Echo "$MSGTO{NODE} does not exist!"
  17. ENDIF
  18.